home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)ab.d64 / amiga demo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  41 lines
  1. 1 REM"[141][145]AMIGA BALL DEMO BY ERIC MASON
  2. 2 [143]"GOSUBON* PUBLIC DOMAIN *   HAVE FUN!
  3. 3 REM"[141][145]----------------------------------------[141][141]
  4. 10 [145]L[137]40,50
  5. 20 [151]53280,0:[151]53281,0:[153]"RETURNLOAD":[141]1000
  6. 30 L[178]1:[147]"FADEIN/OUT",8,1
  7. 40 [151]55,0:[151]56,20:[156]:A(1)[178]13:A(2)[178]14:A(3)[178]254:L[178]2:[147]"AMIGA",8,1
  8. 50 [158]34592:[143] MOVE SCREEN
  9. 55 [151]55,0:[151]56,20:[156]:A(1)[178]13:A(2)[178]14:A(3)[178]254
  10. 60 [129]T[178]0[164]2000:[130]:[143] WAIT FOR DRAMATIC EFFECT
  11. 70 [158]34595:[141]170:[129]I[178]0[164]9000:[130]:[143] FADE-IN, MOVE BALL, WAIT
  12. 90 [158]34598:[129]T[178]0[164]2000:[130]:[143] FADE-OUT, WAIT
  13. 110 [140]:[138]55:[143]  SYS2048:REM BACK TO BASIC
  14. 170 [151]53248,100:[151]53249,110:X[178]100:Y[178]110
  15. 180 [151]53271,1:[151]53277,1:X1[178]2:Y1[178]2:LX[178]80:RX[178]170:TY[178]80:BY[178]120:[129]I[178]1[164]205
  16. 190 [139]X[170]X1[177][178]LX[175]X[170]X1[178][179]RX[167]X[178]X[170]X1:[139]X[178][177]RX[176]X[178][179]LX[167]X1[178][171]X1:[151]54296,15:[151]54296,0
  17. 200 [139]Y[170]Y1[179][178]BY[175]Y[170]Y1[178][177]TY[167]Y[178]Y[170]Y1:[139]Y[178][177]BY[176]Y[178][179]TY[167]Y1[178][171]Y1:[151]54296,15:[151]54296,0
  18. 210 S[178]S[170]1:[139]S[179]4[167][151]2040,A(S)
  19. 220 [139]S[178]4[167]S[178]0:[151]2040,255
  20. 230 [151]53248,X:[151]53249,Y:[130]
  21. 233 Y1[178]4:[129]I[178]X[164]255[169]5:[151]53248,I:Y[178]Y[171]Y1:[151]53249,Y:Y1[178]Y1[173]1.05:[130]
  22. 234 [151]53264,1:[129]I[178]5[164]105[169]5:[151]53248,I:Y[178]Y[171]Y1:[151]53249,Y:Y1[178]Y1[173]1.05:[130]
  23. 235 [151]53269,0:[151]53248,0:[151]53249,0:[151]53264,0:[151]53269,1:[142]
  24. 1000 [153]"    LEFT$ERE COMES THE ATN(null)RIGHT$CHR$ATN!!!"
  25. 1001 [153]"                         (null)OADING..."
  26. 1005 [129]I[178]0[164]127:[135]B:[151]832[170]I,B:[130]:[151]53269,1:[151]53285,2:[151]53286,1
  27. 1010 [151]53287,0:[151]53275,0:[151]53276,1:[151]2040,13
  28. 1020 [129]I[178]0[164]127:[135]B:[151]16256[170]I,B:[130]:[151]53271,1:[151]53277,1:[142]
  29. 1030 [131],,,,,,1,242,,15,92,128,53,245,32,31,95,128,95,95,96,245,245,200
  30. 1040 [131]245,245,224,95,95,72,95,95,96,245,245,192,53,245,32,15,92,128,1,242,0
  31. 1050 [131],,,,,,,,,,,,,,,,,,0
  32. 1060 [131],,,,,,3,210,,13,124,128,23,215,32,61,125,128,125,125,96,215,215,200
  33. 1070 [131]215,215,224,125,125,72,125,125,96,215,215,192,55,215,32,13,124,128
  34. 1080 [131]3,210,,,,,,,,,,,,,,,,,,,,0
  35. 1090 [131],,,,,,3,82,,5,244,128,31,95,32,53,247,128,245,245,224,95,95,72
  36. 1100 [131]95,95,96,245,245,200,245,245,224,95,95,64,31,95,32,5,244,128,3,82,0
  37. 1110 [131],,,,,,,,,,,,,,,,,,0
  38. 1120 [131],,,,,,1,114,,7,212,128,61,125,32,23,215,128,215,215,224,125,125,72
  39. 1130 [131]125,125,96,215,215,224,125,125,64,61,125,32,7,212,128,1,114,0
  40. 1140 [131],,,,,,,,,,,,,,,,,,,,,,0
  41.